<script>on mouseUpif the visible of background button "Search Res." is true or the visible of button "Stamm weiterbearbeiten" is true thenshow card field "Blätterinfo"else if the visible of button "Blättern" is true thenshow card field "Info"elseshow card field "Geneingabeinfo"end ifend mouseUp</script>
<script>on mouseUpglobal Position, Neuein, Hunderter, Ständernif Neuein is true thenget the number of chars of field "Stammname"if it = 0 thenanswer "The strain must have a name!"click at the loc of field "Stammname"exit mouseUpend ifif it > 15 thenanswer "Strain names have a maximum of 15 chars!"exit mouseUpend ifput it into Namenlängeset cursor to 4set lockScreen to trueset lockMessages to trueshow card field "Zusammenbau"if Ständern is true thenget word 1 of line Position of field "Liste" of card "Liste" ¬&& Hunderterput space into card field "Zusammenbau"put it before card field "Zusammenbau"set TextStyle of char 1 of line 1 of card field "Zusammenbau" to boldset TextStyle of char 2 of line 1 of card field "Zusammenbau" to boldset TextStyle of char 3 of line 1 of card field "Zusammenbau" to plainelseput "Platzhalter" into card field "Zusammenbau"push cardgo card "Liste" && Hunderterselect line Position of field "Liste" of card "Liste" && HunderterdoMenu "Copy Text"pop cardselect line 1 of card field "Zusammenbau"doMenu "Paste Text"get field "Maximal" of card "Kastentemplate"if it < (100 * (Hunderter - 1) + Position) then put (100 * (Hunderter - 1) + Position) into field "Maximal" of card "Kastentemplate"end ifrepeat with Buchstabe = 1 to Namenlängeif char Buchstabe of field "Stammname" is return thenput " " after card field "Zusammenbau"next repeatend ifif char Buchstabe of field "Stammname" is space thenput " " after card field "Zusammenbau"elseput char Buchstabe of field "Stammname" after card field "Zusammenbau"end ifend repeatrepeat with Lücke = Namenlänge to 15put space after card field "Zusammenbau"end repeat-- Name, ergänzt auf 16 Zeichenif the hilite of background button "a" is true thenput "a" after card field "Zusammenbau"else if the hilite of background button "a lpha" is true thenput "ª" after card field "Zusammenbau"elseput " " after card field "Zusammenbau"end ifif the hilite of background button "diploid" is true thenif the hilite of background button "a 2" is true thenput "/a" after card field "Zusammenbau"else if the hilite of background button "a lpha2" is true thenput "/ª" after card field "Zusammenbau"elseput "/ " after card field "Zusammenbau"end ifend ifrepeat with Zeile = 1 to the number of lines of field "Stammauswahl"put space & word 1 of line Zeile of field "Stammauswahl" after card field "Zusammenbau"end repeatput space & tab & space & tab after card field "Zusammenbau" -- Trennzeichen für Plasmidrepeat with Buchstabe = 1 to the number of chars of field "Plasmid"get char Buchstabe of field "Plasmid"if it is space thenput " " after card field "Zusammenbau"elseput it after card field "Zusammenbau"end ifend repeatput space & tab & space after card field "Zusammenbau" -- Trennzeichen für Alternative Namenif field "Altnamen" is empty thenput " " after card field "Zusammenbau"elserepeat with Buchstabe = 1 to the number of chars of field "Altnamen"get char Buchstabe of field "Altnamen"if it is space thenput " " after card field "Zusammenbau"elseput it after card field "Zusammenbau"end ifend repeatend ifput space & tab & space after card field "Zusammenbau" -- Trennzeichen für Herkunftif field "Herkunft" is empty thenput " " after card field "Zusammenbau"elserepeat with Buchstabe = 1 to the number of chars of field "Herkunft"get char Buchstabe of field "Herkunft"if it is space thenput " " after card field "Zusammenbau"elseput it after card field "Zusammenbau"end ifend repeatend ifput space & tab & space after card field "Zusammenbau" -- Trennzeichen für Kommentarrepeat with Buchstabe = 1 to the number of chars of field "Stammkommentar"get char Buchstabe of field "Stammkommentar"if it is space or it is return thenput " " after card field "Zusammenbau"elseput it after card field "Zusammenbau"end ifend repeatrepeat with Buchstabe = 4 to 18set textStyle of char Buchstabe of card field "Zusammenbau" to bold,underlineend repeatset textStyle of char 19 of card field "Zusammenbau" to plainselect line 1 of card field "Zusammenbau"doMenu "Copy Text"hide card field "Zusammenbau"push cardgo card "Liste" && Hunderterset lockText of field "Liste" of card "Liste" && Hunderter to falseselect line Position of field "Liste" of card "Liste" && HunderterdoMenu "Paste Text"set lockText of field "Liste" of card "Liste" && Hunderter to truepop cardput empty into Positionput false into Neueinput empty into field "Stammauswahl"put empty into field "Stammname"put empty into field "Stammkommentar"set lockMessages to falseend ifgo card "Kastentemplate"set lockScreen to falseend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>379</left>
<top>43</top>
<right>411</right>
<bottom>61</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>14</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<name>a</name>
<script>on mouseUpif the hilite of background button "a" is true thenset the hilite of background button "a" to falseelseset the hilite of background button "a lpha" to falseset the hilite of background button "a" to trueend ifend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>414</left>
<top>43</top>
<right>446</right>
<bottom>61</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>14</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<name>a lpha</name>
<script>on mouseUpif the hilite of background button "a lpha" is true thenset the hilite of background button "a lpha" to falseelseset the hilite of background button "a" to falseset the hilite of background button "a lpha" to trueend ifend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>304</left>
<top>64</top>
<right>371</right>
<bottom>79</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>diploid</name>
<script>on mouseUpif the hilite of background button "diploid" is true thenset the hilite of background button "diploid" to falsehide background button "a 2"hide background button "a lpha2"hide background button "Mate Strains"elseset the hilite of background button "diploid" to trueshow background button "a 2"show background button "a lpha2"show background button "Mate Strains"end ifend mouseUp</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>254</left>
<top>22</top>
<right>446</right>
<bottom>41</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Stammname</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>3</left>
<top>22</top>
<right>104</right>
<bottom>342</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Genliste</name>
<script>on mouseUpglobal Löschen, Ändern, Info, Neuein, Dipgen, Zweitallelif Ändern is true thenif Löschen is true thenput false into Löschenset lockScreen to trueget word 2 of the clickLineget word 2 of line it of field "Genliste"if it is not empty thendelete line it of field "Infoliste"delete the clickLinerepeat with Zeile = 1 to the number of lines of field "Genliste"if word 2 of line Zeile of field "Genliste" > it then put¬(word 2 of line Zeile of field "Genliste" - 1) into word 2 of line Zeile of field "Genliste"end repeatelsedelete the clickLineend ifhide button "Cancel"hide card field "Löschanleitung"show button "Impetus"set lockScreen to falseend ifend ifif Info is true thenput false into Infoset lockScreen to trueget word 2 of the clickLineput word 1 of line it of field "Genliste" & ": " into card field "Geninfo"get word 2 of line it of field "Genliste"if it is empty thenput "No information for this gene available!" after card field "Geninfo"elseput line it of field "Infoliste" after card field "Geninfo"end ifif Ändern is true then show button "Impetus"set lockScreen to falseelseif Neuein is true thenget word 2 of the clickLineif the hilite of background button "diploid" is true thenput word 1 of line it of field "Genliste" into Dipgenif Zweitallel is true thenput Dipgen & return after field "Stammauswahl"hide background button "gene gene"hide background button "gene Gene 1"hide background button "Gene gene 2"hide background button "GENE GENE 3"hide background button "gene-1 gene-2"show button "Gene Info:"show card field "Geninfo"set the hilite of background button "gene-1 gene-2" to falseput false into Zweitallelhide msgelseshow background button "gene gene"show background button "gene Gene 1"show background button "Gene gene 2"show background button "GENE GENE 3"show background button "gene-1 gene-2"hide button "Gene Info:"hide card field "Geninfo"end ifelseput word 1 of line it of field "Genliste" & return after field "Stammauswahl"end ifend ifend ifend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>105</left>
<top>22</top>
<right>254</right>
<bottom>198</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Stammauswahl</name>
<script>on mouseUpglobal Neueinif Neuein is true then delete the clickLineend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>452</left>
<top>180</top>
<right>508</right>
<bottom>208</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>15972</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Men├╝leiste</name>
<script>on mouseUpif menuBar("©1988SDrazga") then hide menubarelse show menubarend mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>379</left>
<top>63</top>
<right>411</right>
<bottom>81</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>14</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<name>a 2</name>
<script>on mouseUpif the hilite of background button "a 2" is true thenset the hilite of background button "a 2" to falseelseset the hilite of background button "a lpha2" to falseset the hilite of background button "a 2" to trueend ifend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>414</left>
<top>63</top>
<right>446</right>
<bottom>81</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>14</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<name>a lpha2</name>
<script>on mouseUpif the hilite of background button "a lpha2" is true thenset the hilite of background button "a lpha2" to falseelseset the hilite of background button "a 2" to falseset the hilite of background button "a lpha2" to trueend ifend mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>114</left>
<top>199</top>
<right>154</right>
<bottom>238</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20186</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sortieren</name>
<script>on mouseUpsort field "Stammauswahl"end mouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>122</left>
<top>261</top>
<right>210</right>
<bottom>277</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>gene gene</name>
<script>on mouseUpglobal Dipgenset hilite of background button "gene gene" to trueput Dipgen & "/" & Dipgen & return after field "Stammauswahl"hide background button "gene gene"hide background button "gene Gene 1"hide background button "Gene gene 2"hide background button "GENE GENE 3"hide background button "gene-1 gene-2"show button "Gene Info:"show card field "Geninfo"set hilite of background button "gene gene" to falseend mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>122</left>
<top>278</top>
<right>210</right>
<bottom>293</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>gene GENE 1</name>
<script>on mouseUpglobal Dipgenset hilite of background button "gene Gene 1" to trueput Dipgen & "/" after field "Stammauswahl"if the number of chars of Dipgen >4 thenrepeat with Buchstabe = 1 to 4if the CharToNum of char Buchstabe of Dipgen >96 and the CharToNum ¬of char Buchstabe of Dipgen <123 thenput numToChar of ((charToNum of char Buchstabe of Dipgen) - 32) ¬after field "Stammauswahl"elseput char Buchstabe of Dipgen after field "Stammauswahl"end ifend repeatrepeat with Buchstabe = 5 to the number of chars of Dipgenif the CharToNum of char Buchstabe of Dipgen >47 and the CharToNum ¬of char Buchstabe of Dipgen <58 thenput char Buchstabe of Dipgen after field "Stammauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Dipgenif the CharToNum of char Buchstabe of Dipgen >96 and the CharToNum ¬of char Buchstabe of Dipgen <123 thenput numToChar of ((charToNum of char Buchstabe of Dipgen) - 32) ¬after field "Stammauswahl"elseput char Buchstabe of Dipgen after field "Stammauswahl"end ifend repeatend ifput return after field "Stammauswahl"hide background button "gene gene"hide background button "gene Gene 1"hide background button "Gene gene 2"hide background button "GENE GENE 3"hide background button "gene-1 gene-2"show button "Gene Info:"show card field "Geninfo"set hilite of background button "gene Gene 1" to falseend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>122</left>
<top>294</top>
<right>210</right>
<bottom>309</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>GENE gene 2</name>
<script>on mouseUpglobal Dipgenset hilite of background button "Gene gene 2" to trueif the number of chars of Dipgen >4 thenrepeat with Buchstabe = 1 to 4if the CharToNum of char Buchstabe of Dipgen >96 and the CharToNum ¬of char Buchstabe of Dipgen <123 thenput numToChar of ((charToNum of char Buchstabe of Dipgen) - 32) ¬after field "Stammauswahl"elseput char Buchstabe of Dipgen after field "Stammauswahl"end ifend repeatrepeat with Buchstabe = 5 to the number of chars of Dipgenif the CharToNum of char Buchstabe of Dipgen >47 and the CharToNum ¬of char Buchstabe of Dipgen <58 thenput char Buchstabe of Dipgen after field "Stammauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Dipgenif the CharToNum of char Buchstabe of Dipgen >96 and the CharToNum ¬of char Buchstabe of Dipgen <123 thenput numToChar of ((charToNum of char Buchstabe of Dipgen) - 32) ¬after field "Stammauswahl"elseput char Buchstabe of Dipgen after field "Stammauswahl"end ifend repeatend ifput "/" & Dipgen after field "Stammauswahl"put return after field "Stammauswahl"hide background button "gene gene"hide background button "gene Gene 1"hide background button "Gene gene 2"hide background button "GENE GENE 3"hide background button "gene-1 gene-2"show button "Gene Info:"show card field "Geninfo"set hilite of background button "Gene gene 2" to falseend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>122</left>
<top>310</top>
<right>210</right>
<bottom>325</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>GENE GENE 3</name>
<script>on mouseUpglobal Dipgenset hilite of background button "GENE GENE 3" to trueif the number of chars of Dipgen >4 thenrepeat with Buchstabe = 1 to 4if the CharToNum of char Buchstabe of Dipgen >96 and the CharToNum ¬of char Buchstabe of Dipgen <123 thenput numToChar of ((charToNum of char Buchstabe of Dipgen) - 32) ¬after field "Stammauswahl"elseput char Buchstabe of Dipgen after field "Stammauswahl"end ifend repeatrepeat with Buchstabe = 5 to the number of chars of Dipgenif the CharToNum of char Buchstabe of Dipgen >47 and the CharToNum ¬of char Buchstabe of Dipgen <58 thenput char Buchstabe of Dipgen after field "Stammauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Dipgenif the CharToNum of char Buchstabe of Dipgen >96 and the CharToNum ¬of char Buchstabe of Dipgen <123 thenput numToChar of ((charToNum of char Buchstabe of Dipgen) - 32) ¬after field "Stammauswahl"elseput char Buchstabe of Dipgen after field "Stammauswahl"end ifend repeatend ifput "/" after field "Stammauswahl"if the number of chars of Dipgen >4 thenrepeat with Buchstabe = 1 to 4if the CharToNum of char Buchstabe of Dipgen >96 and the CharToNum ¬of char Buchstabe of Dipgen <123 thenput numToChar of ((charToNum of char Buchstabe of Dipgen) - 32) ¬after field "Stammauswahl"elseput char Buchstabe of Dipgen after field "Stammauswahl"end ifend repeatrepeat with Buchstabe = 5 to the number of chars of Dipgenif the CharToNum of char Buchstabe of Dipgen >47 and the CharToNum ¬of char Buchstabe of Dipgen <58 thenput char Buchstabe of Dipgen after field "Stammauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Dipgenif the CharToNum of char Buchstabe of Dipgen >96 and the CharToNum ¬of char Buchstabe of Dipgen <123 thenput numToChar of ((charToNum of char Buchstabe of Dipgen) - 32) ¬after field "Stammauswahl"elseput char Buchstabe of Dipgen after field "Stammauswahl"end ifend repeatend ifput return after field "Stammauswahl"hide background button "gene gene"hide background button "gene Gene 1"hide background button "Gene gene 2"hide background button "GENE GENE 3"hide background button "gene-1 gene-2"show button "Gene Info:"show card field "Geninfo"set hilite of background button "GENE GENE 3" to falseend mouseUp</script>
<script>on mouseUpglobal Hunderterif Hunderter is not empty then put Hunderter into field "Kastennummer" of card "Kastentemplate"go card "Kastentemplate"end mouseUp</script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>410</left>
<top>77</top>
<right>488</right>
<bottom>325</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Infoliste</name>
<script></script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>122</left>
<top>326</top>
<right>241</right>
<bottom>341</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>gene-1 gene-2</name>
<script>on mouseUpglobal Dipgen, Zweitallelset hilite of background button "gene-1 gene-2" to trueput Dipgen & "/" after field "Stammauswahl"put true into Zweitallelput "Choose second mutant allele in the list of genes"end mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>301</left>
<top>83</top>
<right>447</right>
<bottom>105</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Mate Strains</name>
<script>on mouseUpglobal Paarung, Vaterif field "Stammauswahl" is not empty thenanswer "Mating erases all genes in the strain's gene selection!" with "Cancel" or "Mate"if it is "Cancel" then exit mouseUpend ifif the number of cards of background "Suchergebnisse" > 1 then answer "From which register shall the mating partners be selected?" with "Cancel" or "Search Res." or "Strain No."if it is "Cancel" then exit mouseUpif it is "Search Res." thenput true into Paarungset lockMessages to truego card 1 of background "Suchergebnisse"elseask "Enter strain number of the first mating partner!"if (it < 1) or (it > field "Maximal" of card "Kastentemplate") thenanswer "No valid number or position not filled yet"exit mouseUpend ifput trunc(it/100) + 1 into Hunderterput it - 100 * (Hunderter - 1) into Positionget line Position of field "Liste" of card "Liste" && Hunderterput (Hunderter - 1) into Vaterif Position < 10 then put "0" into char 1 of itput it after Vaterif word 3 of Vater is not "a" and word 3 of Vater is not "ª" thenanswer "The strain is not haploid or its mating type is unknown!"exit mouseUpend ifput "1st mating partner:" && Vater into card field "Geninfo"ask "Enter strain number of the second mating partner!"if (it < 1) or (it > field "Maximal" of card "Kastentemplate") thenanswer "No valid number or position not filled yet"put empty into card field "Geninfo"exit mouseUpend ifput trunc(it/100) + 1 into Hunderterput it - 100 * (Hunderter - 1) into Positionget line Position of field "Liste" of card "Liste" && Hunderterput (Hunderter - 1) into Mutterif Position < 10 then put "0" into char 1 of itput it after Mutterif word 3 of Mutter is not "a" and word 3 of Mutter is not "ª" thenanswer "The strain is not haploid or its mating type unknown!"put empty into card field "Geninfo"exit mouseUpend ifif (the chartonum of word 3 of Vater) is (the chartonum of word 3 of Mutter) thenanswer "Both strains have the same mating type!" with "Cancel" or "Mate"if it is "Cancel" thenput empty into card field "Geninfo"exit mouseUpend ifend ifput "2nd mating partner:" && Mutter into card field "Geninfo"Paaren Vater,Mutterend ifbeepend mouseUpon Paaren Vater,Mutterput empty into field "Stammauswahl"if the chartonum of char 1 of word 3 of Vater is 187 thenset the hilite of background button "a" to falseset the hilite of background button "a lpha" to trueelseset the hilite of background button "a lpha" to falseset the hilite of background button "a" to trueend ifif the chartonum of char 1 of word 3 of Mutter is 187 thenset the hilite of background button "a 2" to falseset the hilite of background button "a lpha2" to trueelseset the hilite of background button "a lpha2" to falseset the hilite of background button "a 2" to trueend ifput word 1 of Vater && "x" && word 1 of Mutter & "," && word 2 of Vater && "x" && word 2 of Mutter into field "Stammkommentar"-- Gene durcharbeiten und paaren-- Vater möglichst verkürzen: erst Nummer, Name, PT weg, dann alles hinter den Genenput empty into word 1 of Vaterput empty into word 1 of Vaterput empty into word 1 of Vaterrepeat with Vaterlänge = 1 to the number of words of Vaterget word Vaterlänge of Vaterif it is empty or it is tab thenget word (Vaterlänge + 1) of Vaterif it is not empty and it is not tab then put it after field "Plasmid"repeat for (the number of words of Vater) - (Vaterlänge - 1)put empty into word Vaterlänge of Vaterend repeatexit repeatend ifend repeatrepeat for the number of chars of Vaterif char 1 of Vater is space thenput empty into char 1 of Vaterelseexit repeatend ifend repeatrepeat with Mugenzahl = 4 to the number of words of Mutterget word Mugenzahl of Mutterif it is empty or it is tab thenget word (Mugenzahl + 1) of Mutterif it is not empty and it is not tab then put it after field "Plasmid"-- Plasmide einsetzenexit repeatend if-- Suche nach entsprechenden Genenput it into Muttergenput empty into Partnersucheif the number of chars of Muttergen >4 thenrepeat with Buchstabe = 1 to 4put char Buchstabe of Muttergen after Partnersucheend repeatrepeat with Buchstabe = 5 to the number of chars of Muttergenif the CharToNum of char Buchstabe of Muttergen >47 and the CharToNum ¬of char Buchstabe of Muttergen <58 thenput char Buchstabe of Muttergen after Partnersucheelseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Muttergenput char Buchstabe of Muttergen after Partnersucheend repeatend ifget research(Partnersuche,Vater,"chunk ignorecase separator \ ")if word 3 of it is not empty then-- in Vater gefundenput word 1 of it into Genanfangget word 3 of itput word it of Vater & "/" & Muttergen & return after field "Stammauswahl"put empty into word it of Vaterput empty into char Genanfang of Vaterelseput " /" & Muttergen & return after field "Stammauswahl"end ifend repeat-- Rest von Vater einsetzenrepeat with Vatergen = 1 to the number of words of Vaterput word Vatergen of Vater & "/ " & return after field "Stammauswahl"end repeatend Paaren</script>
</part>
<part>
<id>35</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>278</left>
<top>249</top>
<right>448</right>
<bottom>317</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Stammkommentar</name>
<script></script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>106</left>
<top>229</top>
<right>165</right>
<bottom>256</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>902</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Rückwärts</name>
<script>on mouseUpglobal Position, Hunderter, Suchliste, Suchzeile, Zeilenzahlset cursor to 4set lockScreen to trueif Suchliste is empty thenif field "Position" is 1 thenget field "Maximal" of card "Kastentemplate"put it into field "Position"put the trunc of ((it + 99)/100) into Hunderterput (it + 100 - 100 * Hunderter) into Positionelseif Position > 1 thensubtract 1 from Positionelsesubtract 1 from Hunderterput 100 into Positionend ifsubtract 1 from field "Position"end ifput empty into field "Stammname"put empty into field "Stammkommentar"put empty into field "Stammauswahl"put empty into field "Plasmid"put empty into field "AltNamen"put empty into field "Herkunft"put word 2 of line Position of field "Liste" of card "Liste"¬&& Hunderter into field "Stammname"set the hilite of background button "a" to falseset the hilite of background button "a lpha" to falseset the hilite of background button "a 2" to falseset the hilite of background button "a lpha2" to falseset the hilite of background button "diploid" to falsehide background button "a 2"hide background button "a lpha2"if the CharToNum of char 1 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 187 thenset the hilite of background button "a lpha" to trueelseif char 1 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is "a" thenset the hilite of background button "a" to trueend ifend ifif the number of chars of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 3 thenset the hilite of background button "diploid" to trueshow background button "a 2"show background button "a lpha2"if the CharToNum of char 3 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 187 thenset the hilite of background button "a lpha2" to trueelseif char 3 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is "a" thenset the hilite of background button "a 2" to trueend ifend ifend if-- PT setzenrepeat with Rüber = 4 to the number of words of line ¬Position of field "Liste" of card "Liste" && Hunderterget word Rüber of line Position of field "Liste" of card "Liste"¬&& Hunderterif it is tab thenget word (Rüber + 1) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 2 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Plasmid"elseput char Buchstabe of it after field "Plasmid"end ifend repeatget word (Rüber + 3) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "AltNamen"elseput char Buchstabe of it after field "AltNamen"end ifend repeatget word (Rüber + 5) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Herkunft"elseput char Buchstabe of it after field "Herkunft"end ifend repeatget word (Rüber + 7) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Stammkommentar"elseput char Buchstabe of it after field "Stammkommentar"end ifend repeatexit repeatelseput it & return after field "Stammauswahl"end ifend repeat-- Auslesen der Datenelse-- Auslesen der Suchlisteif Suchzeile >1 thensubtract 1 from Suchzeileelseput Zeilenzahl into Suchzeileend ifif line Suchzeile of field "Suchergebnis" of card ID Suchliste is empty thensend mouseUp to meexit mouseUpelseset cursor to 4set lockScreen to trueput empty into field "Stammname"put empty into field "Stammkommentar"put empty into field "Stammauswahl"put empty into field "Plasmid"put empty into field "AltNamen"put empty into field "Herkunft"put word 1 of line Suchzeile of field "Suchergebnis" of card ID Suchliste into field "Position"put word 2 of line Suchzeile of field "Suchergebnis" of card ID Suchliste into field "Stammname"set the hilite of background button "a" to falseset the hilite of background button "a lpha" to falseset the hilite of background button "a 2" to falseset the hilite of background button "a lpha2" to falseset the hilite of background button "diploid" to falsehide background button "a 2"hide background button "a lpha2"if the CharToNum of char 1 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is 187 thenset the hilite of background button "a lpha" to trueelseif char 1 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is "a" thenset the hilite of background button "a" to trueend ifend ifif the number of chars of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is 3 thenset the hilite of background button "diploid" to trueshow background button "a 2"show background button "a lpha2"if the CharToNum of char 3 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is 187 thenset the hilite of background button "a lpha2" to trueelseif char 3 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is "a" thenset the hilite of background button "a 2" to trueend ifend ifend if-- PT setzenrepeat with Rüber = 4 to the number of words of line Suchzeile of field "Suchergebnis" of card ID Suchlisteget word Rüber of line Suchzeile of field "Suchergebnis" of card ID Suchlisteif it is tab thenget word (Rüber + 1) of line Suchzeile of field "Suchergebnis" of card ID Suchlisterepeat with Buchstabe = 2 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Plasmid"elseput char Buchstabe of it after field "Plasmid"end ifend repeatget word (Rüber + 3) of line Suchzeile of field "Suchergebnis" of card ID Suchlisterepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "AltNamen"elseput char Buchstabe of it after field "AltNamen"end ifend repeatget word (Rüber + 5) of line Suchzeile of field "Suchergebnis" of card ID Suchlisterepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Herkunft"elseput char Buchstabe of it after field "Herkunft"end ifend repeatget word (Rüber + 7) of line Suchzeile of field "Suchergebnis" of card ID Suchlisterepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Stammkommentar"elseput char Buchstabe of it after field "Stammkommentar"end ifend repeatexit repeatelseput it & return after field "Stammauswahl"end ifend repeatend ifend ifend mouseUp</script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>171</left>
<top>230</top>
<right>252</right>
<bottom>257</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26425</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Vorwärts</name>
<script>on mouseUpglobal Position, Hunderter, Suchliste, Suchzeile, Zeilenzahlset cursor to 4set lockScreen to trueif Suchliste is empty thenif field "Maximal" of card "Kastentemplate" > field "Position" thenif Position < 100 thenadd 1 to Positionelseadd 1 to Hunderterput 1 into Positionend ifadd 1 to field "Position"elseput 1 into Positionput 1 into Hunderterput 1 into field "Position"end ifput empty into field "Stammname"put empty into field "Stammkommentar"put empty into field "Stammauswahl"put empty into field "Plasmid"put empty into field "AltNamen"put empty into field "Herkunft"put word 2 of line Position of field "Liste" of card "Liste"¬&& Hunderter into field "Stammname"set the hilite of background button "a" to falseset the hilite of background button "a lpha" to falseset the hilite of background button "a 2" to falseset the hilite of background button "a lpha2" to falseset the hilite of background button "diploid" to falsehide background button "a 2"hide background button "a lpha2"if the CharToNum of char 1 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 187 thenset the hilite of background button "a lpha" to trueelseif char 1 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is "a" thenset the hilite of background button "a" to trueend ifend ifif the number of chars of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 3 thenset the hilite of background button "diploid" to trueshow background button "a 2"show background button "a lpha2"if the CharToNum of char 3 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 187 thenset the hilite of background button "a lpha2" to trueelseif char 3 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is "a" thenset the hilite of background button "a 2" to trueend ifend ifend if-- PT setzenrepeat with Rüber = 4 to the number of words of line ¬Position of field "Liste" of card "Liste" && Hunderterget word Rüber of line Position of field "Liste" of card "Liste"¬&& Hunderterif it is tab thenget word (Rüber + 1) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 2 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Plasmid"elseput char Buchstabe of it after field "Plasmid"end ifend repeatget word (Rüber + 3) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "AltNamen"elseput char Buchstabe of it after field "AltNamen"end ifend repeatget word (Rüber + 5) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Herkunft"elseput char Buchstabe of it after field "Herkunft"end ifend repeatget word (Rüber + 7) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Stammkommentar"elseput char Buchstabe of it after field "Stammkommentar"end ifend repeatexit repeatelseput it & return after field "Stammauswahl"end ifend repeat-- Auslesen der Datenelse-- Auslesen der Suchlisteif Suchzeile < Zeilenzahl thenadd 1 to Suchzeileelseput 1 into Suchzeileend ifif line Suchzeile of field "Suchergebnis" of card ID Suchliste is empty thensend mouseUp to meexit mouseUpelseset cursor to 4set lockScreen to trueput empty into field "Stammname"put empty into field "Stammkommentar"put empty into field "Stammauswahl"put empty into field "Plasmid"put empty into field "AltNamen"put empty into field "Herkunft"put word 1 of line Suchzeile of field "Suchergebnis" of card ID Suchliste into field "Position"put word 2 of line Suchzeile of field "Suchergebnis" of card ID Suchliste into field "Stammname"set the hilite of background button "a" to falseset the hilite of background button "a lpha" to falseset the hilite of background button "a 2" to falseset the hilite of background button "a lpha2" to falseset the hilite of background button "diploid" to falsehide background button "a 2"hide background button "a lpha2"if the CharToNum of char 1 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is 187 thenset the hilite of background button "a lpha" to trueelseif char 1 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is "a" thenset the hilite of background button "a" to trueend ifend ifif the number of chars of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is 3 thenset the hilite of background button "diploid" to trueshow background button "a 2"show background button "a lpha2"if the CharToNum of char 3 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is 187 thenset the hilite of background button "a lpha2" to trueelseif char 3 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is "a" thenset the hilite of background button "a 2" to trueend ifend ifend if-- PT setzenrepeat with Rüber = 4 to the number of words of line Suchzeile of field "Suchergebnis" of card ID Suchlisteget word Rüber of line Suchzeile of field "Suchergebnis" of card ID Suchlisteif it is tab thenget word (Rüber + 1) of line Suchzeile of field "Suchergebnis" of card ID Suchlisterepeat with Buchstabe = 2 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Plasmid"elseput char Buchstabe of it after field "Plasmid"end ifend repeatget word (Rüber + 3) of line Suchzeile of field "Suchergebnis" of card ID Suchlisterepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "AltNamen"elseput char Buchstabe of it after field "AltNamen"end ifend repeatget word (Rüber + 5) of line Suchzeile of field "Suchergebnis" of card ID Suchlisterepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Herkunft"elseput char Buchstabe of it after field "Herkunft"end ifend repeatget word (Rüber + 7) of line Suchzeile of field "Suchergebnis" of card ID Suchlisterepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Stammkommentar"elseput char Buchstabe of it after field "Stammkommentar"end ifend repeatexit repeatelseput it & return after field "Stammauswahl"end ifend repeatend ifend ifend mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>3</top>
<right>100</right>
<bottom>25</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Maske</name>
<script></script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>253</left>
<top>5</top>
<right>452</right>
<bottom>251</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Folie</name>
<script></script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>70</top>
<right>510</right>
<bottom>127</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>12037</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Search Res.</name>
<script>on mouseUpglobal Suchlisteset lockscreen to truego to card id Suchlisteend mouseUp</script>
